home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wantto1a / errorrsc.bas < prev    next >
BASIC Source File  |  1999-09-27  |  14KB  |  353 lines

  1. Attribute VB_Name = "ErrorRscan"
  2. 'sup? Need Any Help using My bas?
  3. 'Email: hangu21@hotmail.com
  4.  
  5. '(c) 1999 Errorr Warez
  6.  
  7.  
  8. Declare Function IsWindowEnabled Lib "user32" (ByVal hwnd As Long) As Long
  9. Private Declare Function ReadProcessMemory Lib "Kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, ByVal lpBuffer As String, ByVal nSize As Long, ByRef lpNumberOfBytesWritten As Long) As Long
  10. Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
  11. Private Declare Function OpenProcess Lib "Kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
  12. Declare Function CloseHandle Lib "Kernel32" (ByVal hObject As Long) As Long
  13. Private Declare Sub RtlMoveMemory Lib "Kernel32" (ByRef dest As Any, ByRef Source As Any, ByVal nBytes As Long)
  14. Declare Function RedrawWindow Lib "user32" (ByVal hwnd As Long, lprcUpdate As RECT, ByVal hrgnUpdate As Long, ByVal fuRedraw As Long) As Long
  15. Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
  16. Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
  17. Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
  18. Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
  19. Declare Function dwGetStringFromLPSTR Lib "dwspy32.dll" (ByVal lpcopy As Long) As String
  20. Declare Sub dwCopyDataBynum Lib "dwspy32.dll" Alias "dwCopyData" (ByVal Source&, ByVal dest&, ByVal nCount&)
  21. Declare Function dwGetAddressForObject& Lib "dwspy32.dll" (object As Any)
  22. Declare Sub dwCopyDataByString Lib "dwspy32.dll" Alias "dwCopyData" (ByVal Source As String, ByVal dest As Long, ByVal nCount&)
  23. Declare Function dwXCopyDataBynumFrom& Lib "dwspy32.dll" Alias "dwXCopyDataFrom" (ByVal mybuf As Long, ByVal foreignbuf As Long, ByVal size As Integer, ByVal foreignPID As Long)
  24. Declare Function dwGetWndInstance& Lib "dwspy32.dll" (ByVal hwnd&)
  25. Declare Function RegisterWindowMessage& Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpstring As String)
  26. Declare Function GetWindowLong& Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long)
  27. Declare Function EnumWindows& Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long)
  28. Declare Function SendMessageByNum& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
  29. Declare Function GetClassName& Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long)
  30. Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
  31. Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
  32. Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long
  33. Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
  34. Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  35. Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
  36. Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
  37. Declare Function CreatePopupMenu Lib "user32" () As Long
  38. Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
  39. Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
  40. Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
  41. Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
  42. Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
  43. Declare Function GetWindowsDirectory Lib "Kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
  44. Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
  45. Declare Function GetTopWindow Lib "user32" (ByVal hwnd As Long) As Long
  46. Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hwndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wflags As Long) As Long
  47. Declare Function SetFocusAPI Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
  48. Declare Function GetMenuString Lib "user32" Alias "GetMenuStringA" (ByVal hMenu As Long, ByVal wIDItem As Long, ByVal lpstring As String, ByVal nMaxCount As Long, ByVal wFlag As Long) As Long
  49. Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpstring As String, ByVal cch As Long) As Long
  50. Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
  51. Declare Function InsertMenu Lib "user32" Alias "InsertMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wflags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As String) As Long
  52. Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wflags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As String) As Long
  53. Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wflags As Long) As Long
  54. Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wflags As Long) As Long
  55. Declare Function DestroyMenu Lib "user32" (ByVal hMenu%) As Integer
  56. Declare Function sndPlaySound Lib "WinMM.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
  57.  
  58. Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal cmd As Long) As Long
  59.  
  60. Global Const GFSR_SYSTEMRESOURCES = 0
  61. Global Const GFSR_GDIRESOURCES = 1
  62. Global Const GFSR_USERRESOURCES = 2
  63.  
  64. Global Const WM_MDICREATE = &H220
  65. Global Const WM_MDIDESTROY = &H221
  66. Global Const WM_MDIACTIVATE = &H222
  67. Global Const WM_MDIRESTORE = &H223
  68. Global Const WM_MDINEXT = &H224
  69. Global Const WM_MDIMAXIMIZE = &H225
  70. Global Const WM_MDITILE = &H226
  71. Global Const WM_MDICASCADE = &H227
  72. Global Const WM_MDIICONARRANGE = &H228
  73. Global Const WM_MDIGETACTIVE = &H229
  74. Global Const WM_MDISETMENU = &H230
  75.  
  76.  
  77. Global Const WM_CUT = &H300
  78. Global Const WM_COPY = &H301
  79. Global Const WM_PASTE = &H302
  80. Public Const WM_CHAR = &H102
  81. Public Const WM_SETTEXT = &HC
  82. Public Const WM_USER = &H400
  83. Public Const WM_KEYDOWN = &H100
  84. Public Const WM_KEYUP = &H101
  85. Public Const WM_LBUTTONDOWN = &H201
  86. Public Const WM_LBUTTONUP = &H202
  87. Public Const WM_CLOSE = &H10
  88. Public Const WM_COMMAND = &H111
  89. Public Const WM_CLEAR = &H303
  90. Public Const WM_DESTROY = &H2
  91. Public Const WM_GETTEXT = &HD
  92. Public Const WM_GETTEXTLENGTH = &HE
  93. Public Const WM_LBUTTONDBLCLK = &H203
  94. Public Const BM_GETCHECK = &HF0
  95. Public Const BM_GETSTATE = &HF2
  96. Public Const BM_SETCHECK = &HF1
  97. Public Const BM_SETSTATE = &HF3
  98.  
  99. Public Const LB_GETITEMDATA = &H199
  100. Public Const LB_GETCOUNT = &H18B
  101. Public Const LB_ADDSTRING = &H180
  102. Public Const LB_DELETESTRING = &H182
  103. Public Const LB_FINDSTRING = &H18F
  104. Public Const LB_FINDSTRINGEXACT = &H1A2
  105. Public Const LB_GETCURSEL = &H188
  106. Public Const LB_GETTEXT = &H189
  107. Public Const LB_GETTEXTLEN = &H18A
  108. Public Const LB_SELECTSTRING = &H18C
  109. Public Const LB_SETCOUNT = &H1A7
  110. Public Const LB_SETCURSEL = &H186
  111. Public Const LB_SETSEL = &H185
  112. Public Const LB_INSERTSTRING = &H181
  113.  
  114. Public Const VK_HOME = &H24
  115. Public Const VK_RIGHT = &H27
  116. Public Const VK_CONTROL = &H11
  117. Public Const VK_DELETE = &H2E
  118. Public Const VK_DOWN = &H28
  119. Public Const VK_LEFT = &H25
  120. Public Const VK_RETURN = &HD
  121. Public Const VK_SPACE = &H20
  122. Public Const VK_TAB = &H9
  123.  
  124. Public Const HWND_TOP = 0
  125. Public Const HWND_TOPMOST = -1
  126. Public Const HWND_NOTOPMOST = -2
  127. Public Const SWP_NOMOVE = &H2
  128. Public Const SWP_NOSIZE = &H1
  129. Public Const flags = SWP_NOMOV